home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1996 January / Computer Life January 1996.iso / vis3 / demos / 3dgame2.vrt / world.script < prev    next >
Encoding:
Text File  |  1994-02-18  |  37.3 KB  |  2,789 lines
  1. ;
  2. ; Script conversion of file 3DGAME2.WLD
  3. ;
  4. Type: WRLD
  5. Title: "\n\n\r"
  6.        "World file 3DGAME2.WLD revision 30\n\r"
  7.        "Saved from VRT version 3.11\n\r"
  8.        "\x1A"
  9. ;
  10. ;-------Object    0-------------------------------------------------------
  11. ; 
  12. Chunk: Standard
  13.  Name:     "RootObject"
  14.  Number:   0
  15.  Size:     2147483647 2147483647 2147483647
  16.  Position: 0 0 0
  17.  Type:     65535
  18.  Layer:    0
  19.  DFlags:   E
  20. End_Chunk
  21. Chunk: ViewPoint
  22.  Number:    100
  23.  Subchunk
  24.   Number:  1
  25.   Type:    35
  26.   View:    0
  27.   Point:   0
  28.   Frames:  1
  29.   Position:  0 Frame:   0  Type: StraightMove Pos: 1990372 25630 1997181
  30.   Rotation:  0 Frame:   0 Type: Relative Offset: 5348 167 0 Zoom: 0x2000
  31.  Subchunk
  32.   Number:  2
  33.   Type:    45
  34.   View:    0
  35.   Point:   0
  36.   Frames:  1
  37.   Position:  0 Frame:   0  Type: StraightMove Pos: 2001050 10550 1997800
  38.   Rotation:  0 Frame:   0 Type: Relative Offset: 4555 0 0 Zoom: 0x2000
  39.  Subchunk
  40.   Number:  3
  41.   Type:    45
  42.   View:    15
  43.   Point:   0
  44.   Frames:  1
  45.   Position:  0 Frame:   0  Type: StraightMove Pos: 643 523 392
  46.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 0 0 Zoom: 0x2000
  47.  Subchunk
  48.   Number:  10
  49.   Type:    45
  50.   View:    15
  51.   Point:   0
  52.   Frames:  1
  53.   Position:  0 Frame:   0  Type: StraightMove Pos: -354 523 390
  54.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 16 0 Zoom: 0x0AF9
  55.  Subchunk
  56.   Number:  11
  57.   Type:    45
  58.   View:    15
  59.   Point:   0
  60.   Frames:  1
  61.   Position:  0 Frame:   0  Type: StraightMove Pos: 1642 523 391
  62.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 0 0 Zoom: 0x0AF9
  63. End_Chunk
  64. Chunk: Colours
  65.  Number: 6
  66.  0xFC 0x04 0x01 0xFF 0x00 0x01
  67. End_Chunk
  68. Chunk: LightSource
  69.  Brightness: 1600
  70.  Offset:     -724 1448 -1254
  71.  Rotation:   0x0000 0x0000 0x0000
  72.  BeamWidth:  0
  73.  Dispersion: 100
  74.  Colour:     0xFF 0xFF 0xFF
  75.  BeamEdge:   0
  76.  Flags:      pOo
  77. End_Chunk
  78.  
  79. Children:
  80. ;
  81. ;-------Object    1-------------------------------------------------------
  82. ; 
  83. Chunk: Standard
  84.  Name:     "Anchor"
  85.  Number:   1
  86.  Size:     100000 1 100000
  87.  Position: 1950000 0 2000000
  88.  Type:     0
  89.  Layer:    0
  90. End_Chunk
  91. Chunk: Colours
  92.  Number: 6
  93.  0x00 0x00 0x00 0x00 0x00 0x00
  94. End_Chunk
  95. ;
  96. ;-------Object    7-------------------------------------------------------
  97. ; 
  98. Chunk: Standard
  99.  Name:     "Room"
  100.  Number:   7
  101.  Size:     40000 30000 80000
  102.  Position: 1970000 0 2000000
  103.  Type:     10
  104.  Layer:    0
  105.  DFlags:   E
  106. End_Chunk
  107. Chunk: Colours
  108.  Number: 131
  109.  0x00 0x2A 0x28 0x26 0x24 0x26 0x2A 0x74 0x74 0x76 0x77 0x76 0x75 0x77 0x2A 0x77
  110.  0x2A 0x77 0x28 0x76 0x28 0x76 0x28 0x75 0x26 0x75 0x26 0x75 0x24 0x74 0x24 0x74
  111.  0x24 0x68 0x69 0x68 0x69 0x68 0x69 0x68 0x69 0x6A 0x6B 0x6C 0x6D 0x6E 0x6F 0x6F
  112.  0x6D 0x6B 0x6A 0x6C 0x6E 0x6F 0x6D 0x6B 0x6A 0x6C 0x6E 0x6F 0x6D 0x6B 0x6A 0x6C
  113.  0x6E 0x00 0x00 0x7F 0x7D 0x7C 0x7A 0x7B 0x7E 0x4A 0x4A 0x4C 0x4D 0x4C 0x4B 0x4D
  114.  0x7D 0x4D 0x7C 0x4D 0x7C 0x4C 0x7B 0x4C 0x7A 0x4B 0x7A 0x4B 0x79 0x4B 0x79 0x4A
  115.  0x78 0x4A 0x78 0x00 0x4D 0x4C 0x4B 0x4A 0x4B 0x4D 0x94 0x94 0x96 0x97 0x96 0x95
  116.  0x97 0x4D 0x97 0x4D 0x97 0x4C 0x96 0x4C 0x96 0x4C 0x95 0x4B 0x95 0x4B 0x95 0x4A
  117.  0x94 0x4A 0x94
  118. End_Chunk
  119.  
  120. Chunk: SoundRef
  121.  Number: 11
  122.  Index: 1 Sound: 3
  123.  Index: 2 Sound: 6
  124.  Index: 3 Sound: 7
  125.  Index: 4 Sound: 8
  126.  Index: 5 Sound: 9
  127.  Index: 6 Sound: 10
  128.  Index: 7 Sound: 11
  129.  Index: 8 Sound: 12
  130.  Index: 9 Sound: 13
  131.  Index: 10 Sound: 4
  132.  Index: 11 Sound: 5
  133. End_Chunk
  134. Chunk: SCL
  135. short  STEREO=1;
  136.  
  137.  
  138.  
  139. resume (2, 2);
  140.  
  141. if (first)
  142.  
  143. {
  144.  
  145.   counter (15)=STEREO;
  146.  
  147.   setvp (3);
  148.  
  149.   sound (10, 64, 100, 0);
  150.  
  151.   wait (50);
  152.  
  153. /*
  154.  
  155.  
  156.  
  157. c(20) holds score
  158.  
  159.  
  160.  
  161. */
  162.  
  163. }
  164.  
  165. if (getwin==1)
  166.  
  167. {
  168.  
  169.   instr (1)=counter (20);
  170.  
  171.   update (1);
  172.  
  173. }
  174.  
  175. else
  176.  
  177. {
  178.  
  179.   instr (2)=counter (20);
  180.  
  181.   update (2);
  182.  
  183.   instr (3)=counter (20);
  184.  
  185.   update (3);
  186.  
  187. }
  188. end
  189. End_Chunk
  190.  
  191. Children:
  192. ;
  193. ;-------Object   20-------------------------------------------------------
  194. ; 
  195. Chunk: Standard
  196.  Name:     "step[20]"
  197.  Number:   20
  198.  Size:     10 29999 80000
  199.  Position: 39900 0 0
  200.  Type:     65535
  201.  Layer:    0
  202. End_Chunk
  203. ;
  204. ;-------Object   41-------------------------------------------------------
  205. ; 
  206. Chunk: Standard
  207.  Name:     "step[41]"
  208.  Number:   41
  209.  Size:     10000 3000 10000
  210.  Position: 0 17000 60000
  211.  Type:     0
  212.  Layer:    0
  213. End_Chunk
  214. Chunk: Colours
  215.  Number: 6
  216.  0x25 0xE1 0xE0 0xE1 0xBA 0x26
  217. End_Chunk
  218. Chunk: SCL
  219. long   y;
  220.  
  221.  
  222.  
  223. resume (2, 2);
  224.  
  225. if (counter (15)==1)
  226.  
  227. {
  228.  
  229.   if (getwin==1)
  230.  
  231.   {
  232.  
  233.     setwin (2);
  234.  
  235.     setvp (10);
  236.  
  237.     ascale;
  238.  
  239.     y=yscale/2;
  240.  
  241.     write (&yscale)=y;
  242.  
  243.     setwin (3);
  244.  
  245.     setvp (11);
  246.  
  247.     write (&yscale)=y;
  248.  
  249.     setwin (2);
  250.  
  251.   }
  252.  
  253.   else
  254.  
  255.   {
  256.  
  257.     setwin (1);
  258.  
  259.     setvp (3);
  260.  
  261.   }
  262.  
  263.   waitfs (5);
  264.  
  265.   counter (15)=0;
  266.  
  267. }
  268. end
  269. End_Chunk
  270. ;
  271. ;-------Object   49-------------------------------------------------------
  272. ; 
  273. Chunk: Standard
  274.  Name:     "section2"
  275.  Number:   49
  276.  Size:     10000 15214 20000
  277.  Position: 17000 13000 60000
  278.  Type:     65535
  279.  Layer:    0
  280.  DFlags:   E
  281. End_Chunk
  282. Chunk: SCL
  283. long   y;
  284.  
  285.  
  286.  
  287. resume (2, 2);
  288.  
  289. if (counter (15)==1)
  290.  
  291. {
  292.  
  293.   if (getwin==1)
  294.  
  295.   {
  296.  
  297.     setwin (2);
  298.  
  299.     setvp (10);
  300.  
  301.     ascale;
  302.  
  303.     y=yscale/2;
  304.  
  305.     write (&yscale)=y;
  306.  
  307.     setwin (3);
  308.  
  309.     setvp (11);
  310.  
  311.     write (&yscale)=y;
  312.  
  313.     setwin (2);
  314.  
  315.   }
  316.  
  317.   else
  318.  
  319.   {
  320.  
  321.     setwin (1);
  322.  
  323.     setvp (3);
  324.  
  325.   }
  326.  
  327.   waitfs (5);
  328.  
  329.   counter (15)=0;
  330.  
  331. }
  332. end
  333. End_Chunk
  334.  
  335. Children:
  336. ;
  337. ;-------Object   42-------------------------------------------------------
  338. ; 
  339. Chunk: Standard
  340.  Name:     "step[42]"
  341.  Number:   42
  342.  Size:     10000 3000 10000
  343.  Position: 0 0 0
  344.  Type:     0
  345.  Layer:    0
  346. End_Chunk
  347. Chunk: Colours
  348.  Number: 6
  349.  0xE0 0xE1 0xE0 0xE1 0xBA 0x26
  350. End_Chunk
  351. Chunk: SCL
  352. long   y;
  353.  
  354.  
  355.  
  356. resume (2, 2);
  357.  
  358. if (counter (15)==1)
  359.  
  360. {
  361.  
  362.   if (getwin==1)
  363.  
  364.   {
  365.  
  366.     setwin (2);
  367.  
  368.     setvp (10);
  369.  
  370.     ascale;
  371.  
  372.     y=yscale/2;
  373.  
  374.     write (&yscale)=y;
  375.  
  376.     setwin (3);
  377.  
  378.     setvp (11);
  379.  
  380.     write (&yscale)=y;
  381.  
  382.     setwin (2);
  383.  
  384.   }
  385.  
  386.   else
  387.  
  388.   {
  389.  
  390.     setwin (1);
  391.  
  392.     setvp (3);
  393.  
  394.   }
  395.  
  396.   waitfs (5);
  397.  
  398.   counter (15)=0;
  399.  
  400. }
  401. end
  402. End_Chunk
  403. ;
  404. ;-------Object   47-------------------------------------------------------
  405. ; 
  406. Chunk: Standard
  407.  Name:     "step[47]"
  408.  Number:   47
  409.  Size:     4000 1000 5000
  410.  Position: 3000 2000 10000
  411.  Type:     19
  412.  Layer:    0
  413. End_Chunk
  414. Chunk: SCL
  415. long   y;
  416.  
  417.  
  418.  
  419. resume (2, 2);
  420.  
  421. if (counter (15)==1)
  422.  
  423. {
  424.  
  425.   if (getwin==1)
  426.  
  427.   {
  428.  
  429.     setwin (2);
  430.  
  431.     setvp (10);
  432.  
  433.     ascale;
  434.  
  435.     y=yscale/2;
  436.  
  437.     write (&yscale)=y;
  438.  
  439.     setwin (3);
  440.  
  441.     setvp (11);
  442.  
  443.     write (&yscale)=y;
  444.  
  445.     setwin (2);
  446.  
  447.   }
  448.  
  449.   else
  450.  
  451.   {
  452.  
  453.     setwin (1);
  454.  
  455.     setvp (3);
  456.  
  457.   }
  458.  
  459.   waitfs (5);
  460.  
  461.   counter (15)=0;
  462.  
  463. }
  464. end
  465. End_Chunk
  466. ;
  467. ;-------Object   48-------------------------------------------------------
  468. ; 
  469. Chunk: Standard
  470.  Name:     "step[48]"
  471.  Number:   48
  472.  Size:     7000 1000 5000
  473.  Position: 3000 2000 15000
  474.  Type:     19
  475.  Layer:    0
  476. End_Chunk
  477. Chunk: SCL
  478. long   y;
  479.  
  480.  
  481.  
  482. resume (2, 2);
  483.  
  484. if (counter (15)==1)
  485.  
  486. {
  487.  
  488.   if (getwin==1)
  489.  
  490.   {
  491.  
  492.     setwin (2);
  493.  
  494.     setvp (10);
  495.  
  496.     ascale;
  497.  
  498.     y=yscale/2;
  499.  
  500.     write (&yscale)=y;
  501.  
  502.     setwin (3);
  503.  
  504.     setvp (11);
  505.  
  506.     write (&yscale)=y;
  507.  
  508.     setwin (2);
  509.  
  510.   }
  511.  
  512.   else
  513.  
  514.   {
  515.  
  516.     setwin (1);
  517.  
  518.     setvp (3);
  519.  
  520.   }
  521.  
  522.   waitfs (5);
  523.  
  524.   counter (15)=0;
  525.  
  526. }
  527. end
  528. End_Chunk
  529. ;
  530. ;-------Object   44-------------------------------------------------------
  531. ; 
  532. Chunk: Standard
  533.  Name:     "Coin-Grp[44]"
  534.  Number:   44
  535.  Size:     1000 1000 1000
  536.  Position: 3662 11000 7208
  537.  Type:     65535
  538.  Layer:    0
  539.  DFlags:   rc
  540. End_Chunk
  541.  
  542. Chunk: SoundRef
  543.  Number: 2
  544.  Index: 1 Sound: 13
  545.  Index: 2 Sound: 3
  546. End_Chunk
  547. Chunk: SCL
  548. if (activate (me, 3))
  549.  
  550. {
  551.  
  552.   counter (20)+=100;
  553.  
  554.   invis (me);
  555.  
  556.   kill (me);
  557.  
  558.   sound (2, 70, 70, 1);
  559.  
  560. }
  561. end
  562. End_Chunk
  563. Chunk: Angular Velocities
  564.  Initial: 0x04FA 0x093E 0x0000
  565. End_Chunk
  566. Chunk: Rotations
  567.  Initial: 0x0000 0x0000 0x0000
  568.  Centre:  500 500 500
  569. End_Chunk
  570.  
  571. Children:
  572. ;
  573. ;-------Object   45-------------------------------------------------------
  574. ; 
  575. Chunk: Standard
  576.  Name:     "coin[45]"
  577.  Number:   45
  578.  Size:     1000 1000 400
  579.  Position: 0 0 300
  580.  Type:     17
  581.  Layer:    0
  582. End_Chunk
  583. Chunk: Distancing
  584.  Visible:   3000
  585.  Invisible: 3750
  586.  Replace:   46
  587. End_Chunk
  588. ;
  589. ;-------Object   46-------------------------------------------------------
  590. ; 
  591. Chunk: Standard
  592.  Name:     "coin-rep1[46]"
  593.  Number:   46
  594.  Size:     1000 1000 400
  595.  Position: 0 0 300
  596.  Type:     18
  597.  Layer:    0
  598.  DFlags:   R
  599.  OFlags:   Ii
  600. End_Chunk
  601. Chunk: Distancing
  602.  Visible:   6000
  603.  Invisible: 7500
  604.  Replace:   0
  605. End_Chunk
  606.  
  607. End_Children
  608. ;
  609. ;-------Object   17-------------------------------------------------------
  610. ; 
  611. Chunk: Standard
  612.  Name:     "Coin-Grp[17]"
  613.  Number:   17
  614.  Size:     1000 1000 1000
  615.  Position: 6913 14067 4855
  616.  Type:     65535
  617.  Layer:    0
  618.  DFlags:   rc
  619. End_Chunk
  620.  
  621. Chunk: SoundRef
  622.  Number: 2
  623.  Index: 1 Sound: 13
  624.  Index: 2 Sound: 3
  625. End_Chunk
  626. Chunk: SCL
  627. if (activate (me, 3))
  628.  
  629. {
  630.  
  631.   counter (20)+=100;
  632.  
  633.   invis (me);
  634.  
  635.   kill (me);
  636.  
  637.   sound (2, 70, 70, 1);
  638.  
  639. }
  640. end
  641. End_Chunk
  642. Chunk: Angular Velocities
  643.  Initial: 0x04FA 0x093E 0x0000
  644. End_Chunk
  645. Chunk: Rotations
  646.  Initial: 0x0000 0x0000 0x0000
  647.  Centre:  500 500 500
  648. End_Chunk
  649.  
  650. Children:
  651. ;
  652. ;-------Object   18-------------------------------------------------------
  653. ; 
  654. Chunk: Standard
  655.  Name:     "coin[18]"
  656.  Number:   18
  657.  Size:     1000 1000 400
  658.  Position: 0 0 300
  659.  Type:     17
  660.  Layer:    0
  661. End_Chunk
  662. Chunk: Distancing
  663.  Visible:   3000
  664.  Invisible: 3750
  665.  Replace:   43
  666. End_Chunk
  667. ;
  668. ;-------Object   43-------------------------------------------------------
  669. ; 
  670. Chunk: Standard
  671.  Name:     "coin-rep1[43]"
  672.  Number:   43
  673.  Size:     1000 1000 400
  674.  Position: 0 0 300
  675.  Type:     18
  676.  Layer:    0
  677.  DFlags:   R
  678.  OFlags:   Ii
  679. End_Chunk
  680. Chunk: Distancing
  681.  Visible:   6000
  682.  Invisible: 7500
  683.  Replace:   0
  684. End_Chunk
  685.  
  686. End_Children
  687. ;
  688. ;-------Object   55-------------------------------------------------------
  689. ; 
  690. Chunk: Standard
  691.  Name:     "Coin-Grp[55]"
  692.  Number:   55
  693.  Size:     1000 1000 1000
  694.  Position: 2514 11000 2748
  695.  Type:     65535
  696.  Layer:    0
  697.  DFlags:   rc
  698. End_Chunk
  699.  
  700. Chunk: SoundRef
  701.  Number: 2
  702.  Index: 1 Sound: 13
  703.  Index: 2 Sound: 3
  704. End_Chunk
  705. Chunk: SCL
  706. if (activate (me, 3))
  707.  
  708. {
  709.  
  710.   counter (20)+=100;
  711.  
  712.   invis (me);
  713.  
  714.   kill (me);
  715.  
  716.   sound (2, 70, 70, 1);
  717.  
  718. }
  719. end
  720. End_Chunk
  721. Chunk: Angular Velocities
  722.  Initial: 0x04FA 0x093E 0x0000
  723. End_Chunk
  724. Chunk: Rotations
  725.  Initial: 0x0000 0x0000 0x0000
  726.  Centre:  500 500 500
  727. End_Chunk
  728.  
  729. Children:
  730. ;
  731. ;-------Object   56-------------------------------------------------------
  732. ; 
  733. Chunk: Standard
  734.  Name:     "coin[56]"
  735.  Number:   56
  736.  Size:     1000 1000 400
  737.  Position: 0 0 300
  738.  Type:     17
  739.  Layer:    0
  740. End_Chunk
  741. Chunk: Distancing
  742.  Visible:   3000
  743.  Invisible: 3750
  744.  Replace:   57
  745. End_Chunk
  746. ;
  747. ;-------Object   57-------------------------------------------------------
  748. ; 
  749. Chunk: Standard
  750.  Name:     "coin-rep1[57]"
  751.  Number:   57
  752.  Size:     1000 1000 400
  753.  Position: 0 0 300
  754.  Type:     18
  755.  Layer:    0
  756.  DFlags:   R
  757.  OFlags:   Ii
  758. End_Chunk
  759. Chunk: Distancing
  760.  Visible:   6000
  761.  Invisible: 7500
  762.  Replace:   0
  763. End_Chunk
  764.  
  765. End_Children
  766. ;
  767. ;-------Object   58-------------------------------------------------------
  768. ; 
  769. Chunk: Standard
  770.  Name:     "Coin-Grp[58]"
  771.  Number:   58
  772.  Size:     1000 1000 1000
  773.  Position: 1850 11000 5060
  774.  Type:     65535
  775.  Layer:    0
  776.  DFlags:   rc
  777. End_Chunk
  778.  
  779. Chunk: SoundRef
  780.  Number: 2
  781.  Index: 1 Sound: 13
  782.  Index: 2 Sound: 3
  783. End_Chunk
  784. Chunk: SCL
  785. if (activate (me, 3))
  786.  
  787. {
  788.  
  789.   counter (20)+=100;
  790.  
  791.   invis (me);
  792.  
  793.   kill (me);
  794.  
  795.   sound (2, 70, 70, 1);
  796.  
  797. }
  798. end
  799. End_Chunk
  800. Chunk: Angular Velocities
  801.  Initial: 0x04FA 0x093E 0x0000
  802. End_Chunk
  803. Chunk: Rotations
  804.  Initial: 0x0000 0x0000 0x0000
  805.  Centre:  500 500 500
  806. End_Chunk
  807.  
  808. Children:
  809. ;
  810. ;-------Object   59-------------------------------------------------------
  811. ; 
  812. Chunk: Standard
  813.  Name:     "coin[59]"
  814.  Number:   59
  815.  Size:     1000 1000 400
  816.  Position: 0 0 300
  817.  Type:     17
  818.  Layer:    0
  819. End_Chunk
  820. Chunk: Distancing
  821.  Visible:   3000
  822.  Invisible: 3750
  823.  Replace:   60
  824. End_Chunk
  825. ;
  826. ;-------Object   60-------------------------------------------------------
  827. ; 
  828. Chunk: Standard
  829.  Name:     "coin-rep1[60]"
  830.  Number:   60
  831.  Size:     1000 1000 400
  832.  Position: 0 0 300
  833.  Type:     18
  834.  Layer:    0
  835.  DFlags:   R
  836.  OFlags:   Ii
  837. End_Chunk
  838. Chunk: Distancing
  839.  Visible:   6000
  840.  Invisible: 7500
  841.  Replace:   0
  842. End_Chunk
  843.  
  844. End_Children
  845.  
  846. End_Children
  847. ;
  848. ;-------Object   50-------------------------------------------------------
  849. ; 
  850. Chunk: Standard
  851.  Name:     "step[50]"
  852.  Number:   50
  853.  Size:     4000 1000 28000
  854.  Position: 35900 15000 47000
  855.  Type:     19
  856.  Layer:    0
  857. End_Chunk
  858. Chunk: SCL
  859. long   y;
  860.  
  861.  
  862.  
  863. resume (2, 2);
  864.  
  865. if (counter (15)==1)
  866.  
  867. {
  868.  
  869.   if (getwin==1)
  870.  
  871.   {
  872.  
  873.     setwin (2);
  874.  
  875.     setvp (10);
  876.  
  877.     ascale;
  878.  
  879.     y=yscale/2;
  880.  
  881.     write (&yscale)=y;
  882.  
  883.     setwin (3);
  884.  
  885.     setvp (11);
  886.  
  887.     write (&yscale)=y;
  888.  
  889.     setwin (2);
  890.  
  891.   }
  892.  
  893.   else
  894.  
  895.   {
  896.  
  897.     setwin (1);
  898.  
  899.     setvp (3);
  900.  
  901.   }
  902.  
  903.   waitfs (5);
  904.  
  905.   counter (15)=0;
  906.  
  907. }
  908. end
  909. End_Chunk
  910. ;
  911. ;-------Object   37-------------------------------------------------------
  912. ; 
  913. Chunk: Standard
  914.  Name:     "section"
  915.  Number:   37
  916.  Size:     10000 30000 60000
  917.  Position: 10 0 0
  918.  Type:     65535
  919.  Layer:    0
  920.  DFlags:   E
  921. End_Chunk
  922. Chunk: Colours
  923.  Number: 18
  924.  0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B
  925.  0x0B 0x0B
  926. End_Chunk
  927. Chunk: SCL
  928. long   y;
  929.  
  930. short  in2, in3;
  931.  
  932.  
  933.  
  934. resume (2, 2);
  935.  
  936. if (counter (15)==1)
  937.  
  938. {
  939.  
  940.   if (getwin==1)
  941.  
  942.   {
  943.  
  944.     setwin (2);
  945.  
  946.     waitf;
  947.  
  948.     write (&insy (1))=ywincent-ywinsize+20;
  949.  
  950.     setvp (10);
  951.  
  952.     ascale;
  953.  
  954.     y=yscale/2;
  955.  
  956.     write (&yscale)=y;
  957.  
  958.     setwin (3);
  959.  
  960.     waitf;
  961.  
  962.     in2=ywincent-ywinsize+20;
  963.  
  964.     setvp (11);
  965.  
  966.     write (&yscale)=y;
  967.  
  968.     setwin (2);
  969.  
  970.     write (&insy (2))=in2;
  971.  
  972.   }
  973.  
  974.   else
  975.  
  976.   {
  977.  
  978.     setwin (1);
  979.  
  980.     setvp (3);
  981.  
  982.   }
  983.  
  984.   waitfs (5);
  985.  
  986.   counter (15)=0;
  987.  
  988. }
  989. end
  990. End_Chunk
  991.  
  992. Children:
  993. ;
  994. ;-------Object    5-------------------------------------------------------
  995. ; 
  996. Chunk: Standard
  997.  Name:     "step"
  998.  Number:   5
  999.  Size:     10000 4000 10000
  1000.  Position: 0 0 10000
  1001.  Type:     0
  1002.  Layer:    0
  1003. End_Chunk
  1004. Chunk: Colours
  1005.  Number: 6
  1006.  0x25 0xE1 0xE0 0x24 0xBA 0x26
  1007. End_Chunk
  1008. Chunk: SCL
  1009. long   y;
  1010.  
  1011.  
  1012.  
  1013. resume (2, 2);
  1014.  
  1015. if (counter (15)==1)
  1016.  
  1017. {
  1018.  
  1019.   if (getwin==1)
  1020.  
  1021.   {
  1022.  
  1023.     setwin (2);
  1024.  
  1025.     setvp (10);
  1026.  
  1027.     ascale;
  1028.  
  1029.     y=yscale/2;
  1030.  
  1031.     write (&yscale)=y;
  1032.  
  1033.     setwin (3);
  1034.  
  1035.     setvp (11);
  1036.  
  1037.     write (&yscale)=y;
  1038.  
  1039.     setwin (2);
  1040.  
  1041.   }
  1042.  
  1043.   else
  1044.  
  1045.   {
  1046.  
  1047.     setwin (1);
  1048.  
  1049.     setvp (3);
  1050.  
  1051.   }
  1052.  
  1053.   waitfs (5);
  1054.  
  1055.   counter (15)=0;
  1056.  
  1057. }
  1058. end
  1059. End_Chunk
  1060. ;
  1061. ;-------Object    6-------------------------------------------------------
  1062. ; 
  1063. Chunk: Standard
  1064.  Name:     "step[6]"
  1065.  Number:   6
  1066.  Size:     10000 8000 10000
  1067.  Position: 0 0 20000
  1068.  Type:     0
  1069.  Layer:    0
  1070. End_Chunk
  1071. Chunk: Colours
  1072.  Number: 6
  1073.  0x25 0xE1 0xE0 0xE1 0xB8 0x26
  1074. End_Chunk
  1075. Chunk: SCL
  1076. long   y;
  1077.  
  1078.  
  1079.  
  1080. resume (2, 2);
  1081.  
  1082. if (counter (15)==1)
  1083.  
  1084. {
  1085.  
  1086.   if (getwin==1)
  1087.  
  1088.   {
  1089.  
  1090.     setwin (2);
  1091.  
  1092.     setvp (10);
  1093.  
  1094.     ascale;
  1095.  
  1096.     y=yscale/2;
  1097.  
  1098.     write (&yscale)=y;
  1099.  
  1100.     setwin (3);
  1101.  
  1102.     setvp (11);
  1103.  
  1104.     write (&yscale)=y;
  1105.  
  1106.     setwin (2);
  1107.  
  1108.   }
  1109.  
  1110.   else
  1111.  
  1112.   {
  1113.  
  1114.     setwin (1);
  1115.  
  1116.     setvp (3);
  1117.  
  1118.   }
  1119.  
  1120.   waitfs (5);
  1121.  
  1122.   counter (15)=0;
  1123.  
  1124. }
  1125. end
  1126. End_Chunk
  1127. ;
  1128. ;-------Object    8-------------------------------------------------------
  1129. ; 
  1130. Chunk: Standard
  1131.  Name:     "step[8]"
  1132.  Number:   8
  1133.  Size:     10000 8000 10000
  1134.  Position: 0 0 40000
  1135.  Type:     0
  1136.  Layer:    0
  1137. End_Chunk
  1138. Chunk: Colours
  1139.  Number: 6
  1140.  0x25 0xE1 0xE0 0xE1 0xBA 0x26
  1141. End_Chunk
  1142. Chunk: SCL
  1143. long   y;
  1144.  
  1145.  
  1146.  
  1147. resume (2, 2);
  1148.  
  1149. if (counter (15)==1)
  1150.  
  1151. {
  1152.  
  1153.   if (getwin==1)
  1154.  
  1155.   {
  1156.  
  1157.     setwin (2);
  1158.  
  1159.     setvp (10);
  1160.  
  1161.     ascale;
  1162.  
  1163.     y=yscale/2;
  1164.  
  1165.     write (&yscale)=y;
  1166.  
  1167.     setwin (3);
  1168.  
  1169.     setvp (11);
  1170.  
  1171.     write (&yscale)=y;
  1172.  
  1173.     setwin (2);
  1174.  
  1175.   }
  1176.  
  1177.   else
  1178.  
  1179.   {
  1180.  
  1181.     setwin (1);
  1182.  
  1183.     setvp (3);
  1184.  
  1185.   }
  1186.  
  1187.   waitfs (5);
  1188.  
  1189.   counter (15)=0;
  1190.  
  1191. }
  1192. end
  1193. End_Chunk
  1194. ;
  1195. ;-------Object   25-------------------------------------------------------
  1196. ; 
  1197. Chunk: Standard
  1198.  Name:     "Coin-Grp[25]"
  1199.  Number:   25
  1200.  Size:     1000 1000 1000
  1201.  Position: 6254 10000 27338
  1202.  Type:     65535
  1203.  Layer:    0
  1204.  DFlags:   rc
  1205. End_Chunk
  1206.  
  1207. Chunk: SoundRef
  1208.  Number: 2
  1209.  Index: 1 Sound: 13
  1210.  Index: 2 Sound: 3
  1211. End_Chunk
  1212. Chunk: SCL
  1213. if (activate (me, 3))
  1214.  
  1215. {
  1216.  
  1217.   counter (20)+=100;
  1218.  
  1219.   invis (me);
  1220.  
  1221.   kill (me);
  1222.  
  1223.   sound (2, 70, 70, 1);
  1224.  
  1225. }
  1226. end
  1227. End_Chunk
  1228. Chunk: Angular Velocities
  1229.  Initial: 0x0444 0x0AAA 0x0000
  1230. End_Chunk
  1231. Chunk: Rotations
  1232.  Initial: 0x0000 0x0000 0x0000
  1233.  Centre:  500 500 500
  1234. End_Chunk
  1235.  
  1236. Children:
  1237. ;
  1238. ;-------Object   26-------------------------------------------------------
  1239. ; 
  1240. Chunk: Standard
  1241.  Name:     "coin[26]"
  1242.  Number:   26
  1243.  Size:     1000 1000 400
  1244.  Position: 0 0 300
  1245.  Type:     17
  1246.  Layer:    0
  1247.  OFlags:   r
  1248. End_Chunk
  1249. Chunk: Distancing
  1250.  Visible:   3000
  1251.  Invisible: 3750
  1252.  Replace:   27
  1253. End_Chunk
  1254. ;
  1255. ;-------Object   27-------------------------------------------------------
  1256. ; 
  1257. Chunk: Standard
  1258.  Name:     "coin-rep1[27]"
  1259.  Number:   27
  1260.  Size:     1000 1000 400
  1261.  Position: 0 0 300
  1262.  Type:     18
  1263.  Layer:    0
  1264.  DFlags:   R
  1265.  OFlags:   Ii
  1266. End_Chunk
  1267. Chunk: Distancing
  1268.  Visible:   6000
  1269.  Invisible: 7500
  1270.  Replace:   0
  1271. End_Chunk
  1272.  
  1273. End_Children
  1274. ;
  1275. ;-------Object   28-------------------------------------------------------
  1276. ; 
  1277. Chunk: Standard
  1278.  Name:     "Coin-Grp[28]"
  1279.  Number:   28
  1280.  Size:     1000 1000 1000
  1281.  Position: 7928 5000 4544
  1282.  Type:     65535
  1283.  Layer:    0
  1284.  DFlags:   rc
  1285. End_Chunk
  1286.  
  1287. Chunk: SoundRef
  1288.  Number: 2
  1289.  Index: 1 Sound: 13
  1290.  Index: 2 Sound: 3
  1291. End_Chunk
  1292. Chunk: SCL
  1293. if (activate (me, 3))
  1294.  
  1295. {
  1296.  
  1297.   counter (20)+=100;
  1298.  
  1299.   invis (me);
  1300.  
  1301.   kill (me);
  1302.  
  1303.   sound (2, 70, 70, 1);
  1304.  
  1305. }
  1306. end
  1307. End_Chunk
  1308. Chunk: Angular Velocities
  1309.  Initial: 0x038E 0x0666 0x0000
  1310. End_Chunk
  1311. Chunk: Rotations
  1312.  Initial: 0x0000 0x0000 0x0000
  1313.  Centre:  500 500 500
  1314. End_Chunk
  1315.  
  1316. Children:
  1317. ;
  1318. ;-------Object   29-------------------------------------------------------
  1319. ; 
  1320. Chunk: Standard
  1321.  Name:     "coin[29]"
  1322.  Number:   29
  1323.  Size:     1000 1000 400
  1324.  Position: 0 0 300
  1325.  Type:     17
  1326.  Layer:    0
  1327. End_Chunk
  1328. Chunk: Distancing
  1329.  Visible:   3000
  1330.  Invisible: 3750
  1331.  Replace:   30
  1332. End_Chunk
  1333. ;
  1334. ;-------Object   30-------------------------------------------------------
  1335. ; 
  1336. Chunk: Standard
  1337.  Name:     "coin-rep1[30]"
  1338.  Number:   30
  1339.  Size:     1000 1000 400
  1340.  Position: 0 0 300
  1341.  Type:     18
  1342.  Layer:    0
  1343.  DFlags:   R
  1344.  OFlags:   Ii
  1345. End_Chunk
  1346. Chunk: Distancing
  1347.  Visible:   6000
  1348.  Invisible: 7500
  1349.  Replace:   0
  1350. End_Chunk
  1351.  
  1352. End_Children
  1353. ;
  1354. ;-------Object   23-------------------------------------------------------
  1355. ; 
  1356. Chunk: Standard
  1357.  Name:     "Coin-Grp"
  1358.  Number:   23
  1359.  Size:     1000 1000 1000
  1360.  Position: 5950 8000 15984
  1361.  Type:     65535
  1362.  Layer:    0
  1363.  DFlags:   rc
  1364. End_Chunk
  1365.  
  1366. Chunk: SoundRef
  1367.  Number: 2
  1368.  Index: 1 Sound: 13
  1369.  Index: 2 Sound: 3
  1370. End_Chunk
  1371. Chunk: SCL
  1372. if (activate (me, 3))
  1373.  
  1374. {
  1375.  
  1376.   counter (20)+=100;
  1377.  
  1378.   invis (me);
  1379.  
  1380.   kill (me);
  1381.  
  1382.   sound (2, 70, 70, 1);
  1383.  
  1384. }
  1385. end
  1386. End_Chunk
  1387. Chunk: Angular Velocities
  1388.  Initial: 0x04FA 0x093E 0x0000
  1389. End_Chunk
  1390. Chunk: Rotations
  1391.  Initial: 0x0000 0x0000 0x0000
  1392.  Centre:  500 500 500
  1393. End_Chunk
  1394.  
  1395. Children:
  1396. ;
  1397. ;-------Object   16-------------------------------------------------------
  1398. ; 
  1399. Chunk: Standard
  1400.  Name:     "coin"
  1401.  Number:   16
  1402.  Size:     1000 1000 400
  1403.  Position: 0 0 300
  1404.  Type:     17
  1405.  Layer:    0
  1406.  OFlags:   r
  1407. End_Chunk
  1408. Chunk: Distancing
  1409.  Visible:   3000
  1410.  Invisible: 3750
  1411.  Replace:   24
  1412. End_Chunk
  1413. ;
  1414. ;-------Object   24-------------------------------------------------------
  1415. ; 
  1416. Chunk: Standard
  1417.  Name:     "coin-rep1"
  1418.  Number:   24
  1419.  Size:     1000 1000 400
  1420.  Position: 0 0 300
  1421.  Type:     18
  1422.  Layer:    0
  1423.  DFlags:   R
  1424.  OFlags:   Ii
  1425. End_Chunk
  1426. Chunk: Distancing
  1427.  Visible:   6000
  1428.  Invisible: 7500
  1429.  Replace:   0
  1430. End_Chunk
  1431.  
  1432. End_Children
  1433. ;
  1434. ;-------Object   34-------------------------------------------------------
  1435. ; 
  1436. Chunk: Standard
  1437.  Name:     "Coin-Grp[34]"
  1438.  Number:   34
  1439.  Size:     1000 1000 1000
  1440.  Position: 2110 13000 43456
  1441.  Type:     65535
  1442.  Layer:    0
  1443.  DFlags:   rc
  1444. End_Chunk
  1445.  
  1446. Chunk: SoundRef
  1447.  Number: 2
  1448.  Index: 1 Sound: 13
  1449.  Index: 2 Sound: 3
  1450. End_Chunk
  1451. Chunk: SCL
  1452. if (activate (me, 3))
  1453.  
  1454. {
  1455.  
  1456.   counter (20)+=100;
  1457.  
  1458.   invis (me);
  1459.  
  1460.   kill (me);
  1461.  
  1462.   sound (2, 70, 70, 1);
  1463.  
  1464. }
  1465. end
  1466. End_Chunk
  1467. Chunk: Angular Velocities
  1468.  Initial: 0x04FA 0x093E 0x0000
  1469. End_Chunk
  1470. Chunk: Rotations
  1471.  Initial: 0x0000 0x0000 0x0000
  1472.  Centre:  500 500 500
  1473. End_Chunk
  1474.  
  1475. Children:
  1476. ;
  1477. ;-------Object   35-------------------------------------------------------
  1478. ; 
  1479. Chunk: Standard
  1480.  Name:     "coin[35]"
  1481.  Number:   35
  1482.  Size:     1000 1000 400
  1483.  Position: 0 0 300
  1484.  Type:     17
  1485.  Layer:    0
  1486.  OFlags:   r
  1487. End_Chunk
  1488. Chunk: Distancing
  1489.  Visible:   3000
  1490.  Invisible: 3750
  1491.  Replace:   36
  1492. End_Chunk
  1493. ;
  1494. ;-------Object   36-------------------------------------------------------
  1495. ; 
  1496. Chunk: Standard
  1497.  Name:     "coin-rep1[36]"
  1498.  Number:   36
  1499.  Size:     1000 1000 400
  1500.  Position: 0 0 300
  1501.  Type:     18
  1502.  Layer:    0
  1503.  DFlags:   R
  1504.  OFlags:   Ii
  1505. End_Chunk
  1506. Chunk: Distancing
  1507.  Visible:   6000
  1508.  Invisible: 7500
  1509.  Replace:   0
  1510. End_Chunk
  1511.  
  1512. End_Children
  1513. ;
  1514. ;-------Object   31-------------------------------------------------------
  1515. ; 
  1516. Chunk: Standard
  1517.  Name:     "Coin-Grp[31]"
  1518.  Number:   31
  1519.  Size:     1000 1000 1000
  1520.  Position: 2110 11000 47206
  1521.  Type:     65535
  1522.  Layer:    0
  1523.  DFlags:   rc
  1524. End_Chunk
  1525.  
  1526. Chunk: SoundRef
  1527.  Number: 2
  1528.  Index: 1 Sound: 13
  1529.  Index: 2 Sound: 3
  1530. End_Chunk
  1531. Chunk: SCL
  1532. if (activate (me, 3))
  1533.  
  1534. {
  1535.  
  1536.   counter (20)+=100;
  1537.  
  1538.   invis (me);
  1539.  
  1540.   kill (me);
  1541.  
  1542.   sound (2, 70, 70, 1);
  1543.  
  1544. }
  1545. end
  1546. End_Chunk
  1547. Chunk: Angular Velocities
  1548.  Initial: 0x04FA 0x093E 0x0000
  1549. End_Chunk
  1550. Chunk: Rotations
  1551.  Initial: 0x0000 0x0000 0x0000
  1552.  Centre:  500 500 500
  1553. End_Chunk
  1554.  
  1555. Children:
  1556. ;
  1557. ;-------Object   32-------------------------------------------------------
  1558. ; 
  1559. Chunk: Standard
  1560.  Name:     "coin[32]"
  1561.  Number:   32
  1562.  Size:     1000 1000 400
  1563.  Position: 0 0 300
  1564.  Type:     17
  1565.  Layer:    0
  1566.  OFlags:   r
  1567. End_Chunk
  1568. Chunk: Distancing
  1569.  Visible:   3000
  1570.  Invisible: 3750
  1571.  Replace:   33
  1572. End_Chunk
  1573. ;
  1574. ;-------Object   33-------------------------------------------------------
  1575. ; 
  1576. Chunk: Standard
  1577.  Name:     "coin-rep1[33]"
  1578.  Number:   33
  1579.  Size:     1000 1000 400
  1580.  Position: 0 0 300
  1581.  Type:     18
  1582.  Layer:    0
  1583.  DFlags:   R
  1584.  OFlags:   Ii
  1585. End_Chunk
  1586. Chunk: Distancing
  1587.  Visible:   6000
  1588.  Invisible: 7500
  1589.  Replace:   0
  1590. End_Chunk
  1591.  
  1592. End_Children
  1593. ;
  1594. ;-------Object   38-------------------------------------------------------
  1595. ; 
  1596. Chunk: Standard
  1597.  Name:     "Coin-Grp[38]"
  1598.  Number:   38
  1599.  Size:     1000 1000 1000
  1600.  Position: 7238 13000 47404
  1601.  Type:     65535
  1602.  Layer:    0
  1603.  DFlags:   rc
  1604. End_Chunk
  1605.  
  1606. Chunk: SoundRef
  1607.  Number: 2
  1608.  Index: 1 Sound: 13
  1609.  Index: 2 Sound: 3
  1610. End_Chunk
  1611. Chunk: SCL
  1612. if (activate (me, 3))
  1613.  
  1614. {
  1615.  
  1616.   counter (20)+=100;
  1617.  
  1618.   invis (me);
  1619.  
  1620.   kill (me);
  1621.  
  1622.   sound (2, 70, 70, 1);
  1623.  
  1624. }
  1625. end
  1626. End_Chunk
  1627. Chunk: Angular Velocities
  1628.  Initial: 0x04FA 0x093E 0x0000
  1629. End_Chunk
  1630. Chunk: Rotations
  1631.  Initial: 0x0000 0x0000 0x0000
  1632.  Centre:  500 500 500
  1633. End_Chunk
  1634.  
  1635. Children:
  1636. ;
  1637. ;-------Object   39-------------------------------------------------------
  1638. ; 
  1639. Chunk: Standard
  1640.  Name:     "coin[39]"
  1641.  Number:   39
  1642.  Size:     1000 1000 400
  1643.  Position: 0 0 300
  1644.  Type:     17
  1645.  Layer:    0
  1646.  OFlags:   r
  1647. End_Chunk
  1648. Chunk: Distancing
  1649.  Visible:   3000
  1650.  Invisible: 3750
  1651.  Replace:   40
  1652. End_Chunk
  1653. ;
  1654. ;-------Object   40-------------------------------------------------------
  1655. ; 
  1656. Chunk: Standard
  1657.  Name:     "coin-rep1[40]"
  1658.  Number:   40
  1659.  Size:     1000 1000 400
  1660.  Position: 0 0 300
  1661.  Type:     18
  1662.  Layer:    0
  1663.  DFlags:   R
  1664.  OFlags:   Ii
  1665. End_Chunk
  1666. Chunk: Distancing
  1667.  Visible:   6000
  1668.  Invisible: 7500
  1669.  Replace:   0
  1670. End_Chunk
  1671.  
  1672. End_Children
  1673. ;
  1674. ;-------Object   21-------------------------------------------------------
  1675. ; 
  1676. Chunk: Standard
  1677.  Name:     "platform"
  1678.  Number:   21
  1679.  Size:     8000 200 8000
  1680.  Position: 1139 1 50000
  1681.  Type:     14
  1682.  Layer:    0
  1683. End_Chunk
  1684. Chunk: InitPos
  1685.  Position: 1139 1 50000
  1686. End_Chunk
  1687. Chunk: SCL
  1688. resume (2, 2);
  1689.  
  1690. if (activate (me, 3))
  1691.  
  1692. {
  1693.  
  1694.   do
  1695.  
  1696.   {
  1697.  
  1698.     ydrive (me)=300;
  1699.  
  1700.     waitf;
  1701.  
  1702.   }
  1703.  
  1704.   until (ypos (me)>=20000);
  1705.  
  1706.   ydrive (me)=0;
  1707.  
  1708.   ypos (me)=20000;
  1709.  
  1710.   waitfs (100);
  1711.  
  1712.   do
  1713.  
  1714.   {
  1715.  
  1716.     ydrive (me)=-300;
  1717.  
  1718.     waitf;
  1719.  
  1720.   }
  1721.  
  1722.   until (ypos (me)<=10);
  1723.  
  1724.   ydrive (me)=0;
  1725.  
  1726.   ypos (me)=0;
  1727.  
  1728.   waitfs (50);
  1729.  
  1730.   clrtrig (me, 3);
  1731.  
  1732. }
  1733. end
  1734. End_Chunk
  1735. Chunk: Dynamics
  1736.  MovType:     0x80000001
  1737.  Fuel:        0
  1738.  Climb:       0
  1739.  Gravity:     0
  1740.  Coupled:     0
  1741.  Drive:       0 0 0
  1742.  External:    0 0 0
  1743.  MaxForce:    0 0 0
  1744.  GroundFric:  0 0 0
  1745.  Restitution: 0 0 0
  1746.  Velocity:    0 0 0
  1747.  MaxVel:      0 0 0
  1748. End_Chunk
  1749. ;
  1750. ;-------Object   61-------------------------------------------------------
  1751. ; 
  1752. Chunk: Standard
  1753.  Name:     "Coin-Grp[61]"
  1754.  Number:   61
  1755.  Size:     1000 1000 1000
  1756.  Position: 4752 1000 34460
  1757.  Type:     65535
  1758.  Layer:    0
  1759.  DFlags:   rc
  1760. End_Chunk
  1761.  
  1762. Chunk: SoundRef
  1763.  Number: 2
  1764.  Index: 1 Sound: 13
  1765.  Index: 2 Sound: 3
  1766. End_Chunk
  1767. Chunk: SCL
  1768. if (activate (me, 3))
  1769.  
  1770. {
  1771.  
  1772.   counter (20)+=100;
  1773.  
  1774.   invis (me);
  1775.  
  1776.   kill (me);
  1777.  
  1778.   sound (2, 70, 70, 1);
  1779.  
  1780. }
  1781. end
  1782. End_Chunk
  1783. Chunk: Angular Velocities
  1784.  Initial: 0x04FA 0x093E 0x0000
  1785. End_Chunk
  1786. Chunk: Rotations
  1787.  Initial: 0x0000 0x0000 0x0000
  1788.  Centre:  500 500 500
  1789. End_Chunk
  1790.  
  1791. Children:
  1792. ;
  1793. ;-------Object   62-------------------------------------------------------
  1794. ; 
  1795. Chunk: Standard
  1796.  Name:     "coin[62]"
  1797.  Number:   62
  1798.  Size:     1000 1000 400
  1799.  Position: 0 0 300
  1800.  Type:     17
  1801.  Layer:    0
  1802.  OFlags:   r
  1803. End_Chunk
  1804. Chunk: Distancing
  1805.  Visible:   3000
  1806.  Invisible: 3750
  1807.  Replace:   63
  1808. End_Chunk
  1809. ;
  1810. ;-------Object   63-------------------------------------------------------
  1811. ; 
  1812. Chunk: Standard
  1813.  Name:     "coin-rep1[63]"
  1814.  Number:   63
  1815.  Size:     1000 1000 400
  1816.  Position: 0 0 300
  1817.  Type:     18
  1818.  Layer:    0
  1819.  DFlags:   R
  1820.  OFlags:   Ii
  1821. End_Chunk
  1822. Chunk: Distancing
  1823.  Visible:   6000
  1824.  Invisible: 7500
  1825.  Replace:   0
  1826. End_Chunk
  1827.  
  1828. End_Children
  1829.  
  1830. End_Children
  1831. ;
  1832. ;-------Object   19-------------------------------------------------------
  1833. ; 
  1834. Chunk: Standard
  1835.  Name:     "Collisio"
  1836.  Number:   19
  1837.  Size:     10 29999 80000
  1838.  Position: 1000 0 0
  1839.  Type:     65535
  1840.  Layer:    0
  1841. End_Chunk
  1842. ;
  1843. ;-------Object   51-------------------------------------------------------
  1844. ; 
  1845. Chunk: Standard
  1846.  Name:     "step[51]"
  1847.  Number:   51
  1848.  Size:     12900 1000 5000
  1849.  Position: 27000 15000 75000
  1850.  Type:     19
  1851.  Layer:    0
  1852. End_Chunk
  1853. Chunk: SCL
  1854. long   y;
  1855.  
  1856.  
  1857.  
  1858. resume (2, 2);
  1859.  
  1860. if (counter (15)==1)
  1861.  
  1862. {
  1863.  
  1864.   if (getwin==1)
  1865.  
  1866.   {
  1867.  
  1868.     setwin (2);
  1869.  
  1870.     setvp (10);
  1871.  
  1872.     ascale;
  1873.  
  1874.     y=yscale/2;
  1875.  
  1876.     write (&yscale)=y;
  1877.  
  1878.     setwin (3);
  1879.  
  1880.     setvp (11);
  1881.  
  1882.     write (&yscale)=y;
  1883.  
  1884.     setwin (2);
  1885.  
  1886.   }
  1887.  
  1888.   else
  1889.  
  1890.   {
  1891.  
  1892.     setwin (1);
  1893.  
  1894.     setvp (3);
  1895.  
  1896.   }
  1897.  
  1898.   waitfs (5);
  1899.  
  1900.   counter (15)=0;
  1901.  
  1902. }
  1903. end
  1904. End_Chunk
  1905. ;
  1906. ;-------Object   52-------------------------------------------------------
  1907. ; 
  1908. Chunk: Standard
  1909.  Name:     "platform[52]"
  1910.  Number:   52
  1911.  Size:     4000 200 4000
  1912.  Position: 35900 12000 43000
  1913.  Type:     14
  1914.  Layer:    0
  1915. End_Chunk
  1916. Chunk: InitPos
  1917.  Position: 35900 12000 43000
  1918. End_Chunk
  1919. Chunk: SCL
  1920. resume (2, 2);
  1921.  
  1922. if (activate (me, 3))
  1923.  
  1924. {
  1925.  
  1926.   do
  1927.  
  1928.   {
  1929.  
  1930.     ydrive (me)=300;
  1931.  
  1932.     waitf;
  1933.  
  1934.   }
  1935.  
  1936.   until (ypos (me)>=29800);
  1937.  
  1938.   ydrive (me)=0;
  1939.  
  1940.   ypos (me)=29800;
  1941.  
  1942.   waitfs (100);
  1943.  
  1944.   do
  1945.  
  1946.   {
  1947.  
  1948.     ydrive (me)=-300;
  1949.  
  1950.     waitf;
  1951.  
  1952.   }
  1953.  
  1954.   until (ypos (me)<=11500);
  1955.  
  1956.   ydrive (me)=0;
  1957.  
  1958.   ypos (me)=12000;
  1959.  
  1960.   waitfs (50);
  1961.  
  1962.   clrtrig (me, 3);
  1963.  
  1964. }
  1965. end
  1966. End_Chunk
  1967. Chunk: Dynamics
  1968.  MovType:     0x80000001
  1969.  Fuel:        0
  1970.  Climb:       0
  1971.  Gravity:     0
  1972.  Coupled:     0
  1973.  Drive:       0 0 0
  1974.  External:    0 0 0
  1975.  MaxForce:    0 0 0
  1976.  GroundFric:  0 0 0
  1977.  Restitution: 0 0 0
  1978.  Velocity:    0 0 0
  1979.  MaxVel:      0 0 0
  1980. End_Chunk
  1981.  
  1982. End_Children
  1983. ;
  1984. ;-------Object   53-------------------------------------------------------
  1985. ; 
  1986. Chunk: Standard
  1987.  Name:     "Collisio[53]"
  1988.  Number:   53
  1989.  Size:     62719 29999 80000
  1990.  Position: 1961000 0 2080000
  1991.  Type:     65535
  1992.  Layer:    0
  1993. End_Chunk
  1994. ;
  1995. ;-------Object   54-------------------------------------------------------
  1996. ; 
  1997. Chunk: Standard
  1998.  Name:     "Collisio[54]"
  1999.  Number:   54
  2000.  Size:     62719 29999 80000
  2001.  Position: 1961000 0 1920000
  2002.  Type:     65535
  2003.  Layer:    0
  2004. End_Chunk
  2005.  
  2006. End_Children
  2007. ;
  2008. ;-------Object    2-------------------------------------------------------
  2009. ; 
  2010. Chunk: Standard
  2011.  Name:     "Object-X"
  2012.  Number:   2
  2013.  Size:     1400 4000 1400
  2014.  Position: 2000602 1000 2007146
  2015.  Type:     65535
  2016.  Layer:    0
  2017.  DFlags:   cM
  2018. End_Chunk
  2019.  
  2020. Chunk: SoundRef
  2021.  Number: 11
  2022.  Index: 1 Sound: 3
  2023.  Index: 2 Sound: 6
  2024.  Index: 3 Sound: 7
  2025.  Index: 4 Sound: 8
  2026.  Index: 5 Sound: 9
  2027.  Index: 6 Sound: 10
  2028.  Index: 7 Sound: 11
  2029.  Index: 8 Sound: 12
  2030.  Index: 9 Sound: 13
  2031.  Index: 10 Sound: 4
  2032.  Index: 11 Sound: 5
  2033. End_Chunk
  2034. Chunk: Dynamics
  2035.  MovType:     0x80000083
  2036.  Fuel:        0
  2037.  Climb:       0
  2038.  Gravity:     0
  2039.  Coupled:     4
  2040.  Drive:       0 0 0
  2041.  External:    0 0 0
  2042.  MaxForce:    0 0 0
  2043.  GroundFric:  0 0 0
  2044.  Restitution: 0 0 0
  2045.  Velocity:    0 0 0
  2046.  MaxVel:      0 0 0
  2047. End_Chunk
  2048. Chunk: Angular Velocities
  2049.  Initial: 0x0000 0x0666 0x0000
  2050. End_Chunk
  2051. Chunk: Bending
  2052.  Number: 1
  2053.  Subchunk
  2054.   Angle:  0 0 0
  2055.    First:  9
  2056.   Last:   16
  2057.   Centre: 8
  2058. End_Chunk
  2059. Chunk: InitPos
  2060.  Position: 2000602 1000 2007146
  2061. End_Chunk
  2062. Chunk: SCL
  2063. long   VertV, Grav=-100, Height=4000, CoRes=80, base=30, 
  2064.  
  2065.     Phase=0, Squash=7, AntiSqsh=700, SqoshVel;
  2066.  
  2067. short  dir, mag;
  2068.  
  2069. fixed  R;
  2070.  
  2071.  
  2072.  
  2073.  /* Phase=0  normal movemont */
  2074.  
  2075.  
  2076.  
  2077. if (Phase==0)
  2078.  
  2079. {
  2080.  
  2081.   if (activate (me, 0))
  2082.  
  2083.     VertV=1000;
  2084.  
  2085.   moveby (0, VertV, 0, me);
  2086.  
  2087.   VertV+=Grav;
  2088.  
  2089.   zdrive (me)=mag;
  2090.  
  2091.   if (!vis? (#22))
  2092.  
  2093.     ypos (#22)=ypos (me);
  2094.  
  2095. }
  2096.  
  2097. if (objon (me)>0 && Phase==0)
  2098.  
  2099. {
  2100.  
  2101.   zdrive (me)=0;
  2102.  
  2103. /*  ypos (me)=base; */
  2104.  
  2105.   Phase=1;
  2106.  
  2107.   SqoshVel=10*VertV/Squash;
  2108.  
  2109.    
  2110.  
  2111.       /*  -print- (VertV);
  2112.  
  2113. *//* Squash Phase */
  2114.  
  2115.   if (!attr? (object (objon (me)), 22))
  2116.  
  2117.   {
  2118.  
  2119.     vis (#22);
  2120.  
  2121.     unkill (#22);
  2122.  
  2123.   }
  2124.  
  2125.   sound (6, 65, -7000, 0);
  2126.  
  2127. }
  2128.  
  2129. if (Phase==1)
  2130.  
  2131. {
  2132.  
  2133.   write (&ysize (#3))+=SqoshVel;
  2134.  
  2135.   ypos (#22)=ypos (me);
  2136.  
  2137.   if (ysize (#3)<10)
  2138.  
  2139.     ysize (#3)=10;
  2140.  
  2141.   if (ysize (#3)>Height)
  2142.  
  2143.   {
  2144.  
  2145.     write (&ysize (#3))=Height;
  2146.  
  2147.     Phase=0;
  2148.  
  2149.     VertV=- (VertV*CoRes)/100;
  2150.  
  2151.  
  2152.  
  2153. /*
  2154.  
  2155.  
  2156.  
  2157.         Process Joystick
  2158.  
  2159.  
  2160.  
  2161. */
  2162.  
  2163.   
  2164.  
  2165.  
  2166.  
  2167.     yrot (#4)=fatan2 (counter (11), counter (10));
  2168.  
  2169.     zdrive (me)=sqrt (counter (11)*counter (11)+counter 
  2170.  
  2171.         (10)*counter (10))/5;
  2172.  
  2173.     mag=zdrive (me);
  2174.  
  2175.     if (counter (12)==1 || counter (13))
  2176.  
  2177.     {
  2178.  
  2179.       if (VertV<1200)
  2180.  
  2181.         VertV+=200;
  2182.  
  2183.     }
  2184.  
  2185.     counter (12)=0;
  2186.  
  2187.     counter (13)=0;
  2188.  
  2189.     sound (6, 70, -10000, 0);
  2190.  
  2191.   }
  2192.  
  2193.   SqoshVel+=AntiSqsh;
  2194.  
  2195. }
  2196.  
  2197. xrot (#9)=limit (- (VertV*zdrive (me))/8000, -60, 60);
  2198.  
  2199. yrot (#10)=-yrot (#4)+fatan2 (counter (11), counter (10));
  2200.  
  2201. R=yrot (#10);
  2202.  
  2203. counter (10)=0;
  2204.  
  2205. counter (11)=0;
  2206.  
  2207.  
  2208. end
  2209. End_Chunk
  2210.  
  2211. Children:
  2212. ;
  2213. ;-------Object    4-------------------------------------------------------
  2214. ; 
  2215. Chunk: Standard
  2216.  Name:     "Dir"
  2217.  Number:   4
  2218.  Size:     1000 4000 1000
  2219.  Position: 200 0 200
  2220.  Type:     65535
  2221.  Layer:    0
  2222.  DFlags:   r
  2223. End_Chunk
  2224. Chunk: Rotations
  2225.  Initial: 0x0000 0x0000 0x0000
  2226.  Centre:  500 2000 500
  2227. End_Chunk
  2228.  
  2229. Children:
  2230. ;
  2231. ;-------Object    9-------------------------------------------------------
  2232. ; 
  2233. Chunk: Standard
  2234.  Name:     "Sostilt"
  2235.  Number:   9
  2236.  Size:     1000 4000 1000
  2237.  Position: 0 0 0
  2238.  Type:     65535
  2239.  Layer:    0
  2240.  DFlags:   r
  2241. End_Chunk
  2242. Chunk: Rotations
  2243.  Initial: 0x0000 0x0000 0x0000
  2244.  Centre:  500 0 500
  2245. End_Chunk
  2246.  
  2247. Children:
  2248. ;
  2249. ;-------Object   10-------------------------------------------------------
  2250. ; 
  2251. Chunk: Standard
  2252.  Name:     "SosParts"
  2253.  Number:   10
  2254.  Size:     1000 4000 1000
  2255.  Position: 0 0 0
  2256.  Type:     65535
  2257.  Layer:    0
  2258.  DFlags:   r
  2259. End_Chunk
  2260. Chunk: Rotations
  2261.  Initial: 0x0000 0x0000 0x0000
  2262.  Centre:  500 0 500
  2263. End_Chunk
  2264.  
  2265. Children:
  2266. ;
  2267. ;-------Object   11-------------------------------------------------------
  2268. ; 
  2269. Chunk: Standard
  2270.  Name:     "eye"
  2271.  Number:   11
  2272.  Size:     500 500 0
  2273.  Position: -100 2807 1000
  2274.  Type:     9
  2275.  Layer:    0
  2276.  DFlags:   r
  2277.  OFlags:   Aa
  2278. End_Chunk
  2279. Chunk: Animations
  2280.  Number: 1
  2281.  Subchunk
  2282.   First:    1
  2283.   Last:     2
  2284.   Phase:    0x0100
  2285.   Velocity: 0x0100
  2286.   Mode:     0
  2287. End_Chunk
  2288. Chunk: Rotations
  2289.  Initial: 0x0000 0x0000 0x0000
  2290.  Centre:  250 250 0
  2291. End_Chunk
  2292. Chunk: SCL
  2293. long   x, y, z;
  2294.  
  2295.  
  2296.  
  2297. resume (2, 2);
  2298.  
  2299. y=angle3d (#15, me, &x);
  2300.  
  2301. xrot (me)=x;
  2302.  
  2303. xrot (#12)=x;
  2304.  
  2305. yrot (me)=y;
  2306.  
  2307. yrot (#12)=y;
  2308.  
  2309. if (!random (40))
  2310.  
  2311. {
  2312.  
  2313.   ccel (me, 1)=2;
  2314.  
  2315.   ccel (#12, 1)=2;
  2316.  
  2317.   waitfs (3);
  2318.  
  2319.   ccel (me, 1)=1;
  2320.  
  2321.   ccel (#12, 1)=1;
  2322.  
  2323. }
  2324. end
  2325. End_Chunk
  2326. ;
  2327. ;-------Object   12-------------------------------------------------------
  2328. ; 
  2329. Chunk: Standard
  2330.  Name:     "L_Eye"
  2331.  Number:   12
  2332.  Size:     500 500 0
  2333.  Position: 600 2807 1000
  2334.  Type:     9
  2335.  Layer:    0
  2336.  DFlags:   r
  2337.  OFlags:   Aa
  2338. End_Chunk
  2339. Chunk: Animations
  2340.  Number: 1
  2341.  Subchunk
  2342.   First:    1
  2343.   Last:     2
  2344.   Phase:    0x0100
  2345.   Velocity: 0x0100
  2346.   Mode:     0
  2347. End_Chunk
  2348. Chunk: Rotations
  2349.  Initial: 0x0000 0x0000 0x0000
  2350.  Centre:  250 250 0
  2351. End_Chunk
  2352. ;
  2353. ;-------Object    3-------------------------------------------------------
  2354. ; 
  2355. Chunk: Standard
  2356.  Name:     "Squidge"
  2357.  Number:   3
  2358.  Size:     1000 4000 1000
  2359.  Position: 0 0 0
  2360.  Type:     3
  2361.  Layer:    0
  2362.  DFlags:   r
  2363. End_Chunk
  2364. Chunk: Attachments
  2365.  Number: 2
  2366.   Facet: 54   Object: 11
  2367.   Facet: 55   Object: 12
  2368. End_Chunk
  2369. Chunk: InitPos
  2370.  Position: 0 0 0
  2371. End_Chunk
  2372. Chunk: LitCols
  2373.  Number: 57
  2374.  0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3
  2375.  0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3
  2376.  0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3
  2377.  0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3 0xE3
  2378. End_Chunk
  2379. Chunk: SCL
  2380. long   f;
  2381.  
  2382.  
  2383.  
  2384. f=iysize (me)-ysize (me);
  2385.  
  2386. write (&xpos (me))=-f/4;
  2387.  
  2388. write (&zpos (me))=-f/4;
  2389.  
  2390. xsize (me)=ixsize (me)+f/2;
  2391.  
  2392. zsize (me)=izsize (me)+f/2;
  2393.  
  2394.  
  2395. end
  2396. End_Chunk
  2397. Chunk: Rotations
  2398.  Initial: 0x0000 0x0000 0x0000
  2399.  Centre:  500 0 500
  2400. End_Chunk
  2401. Chunk: InitSize
  2402.  Size: 1000 4000 1000
  2403. End_Chunk
  2404.  
  2405. End_Children
  2406.  
  2407. End_Children
  2408.  
  2409. End_Children
  2410.  
  2411. End_Children
  2412. ;
  2413. ;-------Object   14-------------------------------------------------------
  2414. ; 
  2415. Chunk: Standard
  2416.  Name:     "mover"
  2417.  Number:   14
  2418.  Size:     1400 0 1400
  2419.  Position: 2000602 2001 2007146
  2420.  Type:     65535
  2421.  Layer:    0
  2422.  DFlags:   ME
  2423. End_Chunk
  2424. Chunk: Colours
  2425.  Number: 18
  2426.  0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E
  2427.  0x0E 0x0E
  2428. End_Chunk
  2429. Chunk: Collision
  2430.  Number: 1
  2431.  SubChunk
  2432.   Offset: 699 0 699
  2433.   Size:   2 0 2
  2434. End_Chunk
  2435. Chunk: Dynamics
  2436.  MovType:     0x80000411
  2437.  Fuel:        0
  2438.  Climb:       0
  2439.  Gravity:     0
  2440.  Coupled:     0
  2441.  Drive:       0 0 0
  2442.  External:    0 0 0
  2443.  MaxForce:    0 0 0
  2444.  GroundFric:  0 0 0
  2445.  Restitution: 0 0 0
  2446.  Velocity:    0 0 0
  2447.  MaxVel:      0 0 0
  2448. End_Chunk
  2449. Chunk: InitPos
  2450.  Position: 2000602 2001 2007146
  2451. End_Chunk
  2452. Chunk: SCL
  2453. long   x, y, z, d=200;
  2454.  
  2455.  
  2456.  
  2457. y=ypos (#22)+2000-ypos (me);
  2458.  
  2459. x=xpos (#22)-xpos (me);
  2460.  
  2461. z=zpos (#22)-zpos (me);
  2462.  
  2463. xpos (me)+=x/5;
  2464.  
  2465. zpos (me)+=z/5;
  2466.  
  2467. if (abs (y)>d*2)
  2468.  
  2469.   ypos (me)+=d*sgn (y);
  2470.  
  2471.  
  2472. end
  2473. End_Chunk
  2474. ;
  2475. ;-------Object   22-------------------------------------------------------
  2476. ; 
  2477. Chunk: Standard
  2478.  Name:     "shad"
  2479.  Number:   22
  2480.  Size:     1320 0 1320
  2481.  Position: 1995690 2 2002454
  2482.  Type:     15
  2483.  Layer:    0
  2484.  DFlags:   NcM
  2485. End_Chunk
  2486. Chunk: InitPos
  2487.  Position: 1995690 2 2002454
  2488. End_Chunk
  2489. Chunk: Colours
  2490.  Number: 2
  2491.  0xE1 0xE0
  2492. End_Chunk
  2493. Chunk: SCL
  2494. short  s, o, x, ors=1400, ballsz=1400;
  2495.  
  2496.  
  2497.  
  2498. resume (2, 2);
  2499.  
  2500. /*
  2501.  
  2502. __________________________________________________________________________
  2503.  
  2504.  
  2505.  
  2506.                     VARIABLES
  2507.  
  2508.  
  2509.  
  2510.                 s   -   calculated size of shadow
  2511.  
  2512.                 o   -   calculated position offset
  2513.  
  2514.                 x   -   calculated position offset modifier
  2515.  
  2516.               ors   -   original shadow object size - constant 
  2517.  
  2518.            ballsz   -   size of ball - constant
  2519.  
  2520.  
  2521.  
  2522. __________________________________________________________________________
  2523.  
  2524.  
  2525.  
  2526.  
  2527.  
  2528.  
  2529.  
  2530.  
  2531.  
  2532. *//*
  2533.  
  2534.  
  2535.  
  2536.  
  2537.  
  2538.  
  2539.  
  2540. ##########################################################################
  2541.  
  2542.                     calculate size of shadow
  2543.  
  2544. ##########################################################################
  2545.  
  2546. */                    
  2547.  
  2548. s=ors- (ypos (#2)-ypos (me))/5;
  2549.  
  2550. /*
  2551.  
  2552.  
  2553.  
  2554.  
  2555.  
  2556. ##########################################################################
  2557.  
  2558.                     maintain shadow size so that it is
  2559.  
  2560.                     never smaller than a fifth of it's 
  2561.  
  2562.                     original size.
  2563.  
  2564. ##########################################################################
  2565.  
  2566. */
  2567.  
  2568.  
  2569.  
  2570. if (s<ors/5)
  2571.  
  2572.   s=ors/5;
  2573.  
  2574. /*
  2575.  
  2576.  
  2577.  
  2578.  
  2579.  
  2580.  
  2581.  
  2582. ##########################################################################
  2583.  
  2584.                     write shadow size
  2585.  
  2586. ##########################################################################
  2587.  
  2588. */
  2589.  
  2590.  
  2591.  
  2592. write (&xsize (me))=s;
  2593.  
  2594. write (&zsize (me))=s;
  2595.  
  2596.  
  2597.  
  2598.  
  2599.  
  2600. /*
  2601.  
  2602.  
  2603.  
  2604.  
  2605.  
  2606.  
  2607.  
  2608. ##########################################################################
  2609.  
  2610.                     work out original horizontal
  2611.  
  2612.                     position offset for unsized
  2613.  
  2614.                     shadow (o) & size modification
  2615.  
  2616.                     offset (x).
  2617.  
  2618. ##########################################################################
  2619.  
  2620. */ 
  2621.  
  2622. o= (ors-ballsz)/2;
  2623.  
  2624. x= (ors-s)/2;
  2625.  
  2626. /*
  2627.  
  2628.  
  2629.  
  2630.  
  2631.  
  2632. ##########################################################################
  2633.  
  2634.                     set position of shadow with offsets
  2635.  
  2636.                     applied
  2637.  
  2638. ##########################################################################
  2639.  
  2640. */
  2641.  
  2642. xpos (me)=xpos (#2)-o+x;
  2643.  
  2644. zpos (me)=zpos (#2)-o+x;
  2645.  
  2646. if (attr? (object (objon (me)), 22))
  2647.  
  2648. {
  2649.  
  2650.   invis (me);
  2651.  
  2652.   kill (me);
  2653.  
  2654. }
  2655. end
  2656. End_Chunk
  2657. Chunk: Dynamics
  2658.  MovType:     0x80000401
  2659.  Fuel:        0
  2660.  Climb:       0
  2661.  Gravity:     10000
  2662.  Coupled:     0
  2663.  Drive:       0 0 0
  2664.  External:    0 0 0
  2665.  MaxForce:    0 0 0
  2666.  GroundFric:  0 0 0
  2667.  Restitution: 0 0 0
  2668.  Velocity:    0 0 0
  2669.  MaxVel:      0 0 0
  2670. End_Chunk
  2671. ;
  2672. ;-------Object   15-------------------------------------------------------
  2673. ; 
  2674. Chunk: Standard
  2675.  Name:     "Camera"
  2676.  Number:   15
  2677.  Size:     1000 1000 1000
  2678.  Position: 1999700 9729 1984100
  2679.  Type:     65535
  2680.  Layer:    0
  2681.  DFlags:   rME
  2682. End_Chunk
  2683. Chunk: Rotations
  2684.  Initial: 0x0000 0x0000 0x0000
  2685.  Centre:  500 500 500
  2686. End_Chunk
  2687. Chunk: Colours
  2688.  Number: 18
  2689.  0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C
  2690.  0x0C 0x0C
  2691. End_Chunk
  2692. Chunk: InitPos
  2693.  Position: 1999700 9729 1984100
  2694. End_Chunk
  2695. Chunk: SCL
  2696. fixed  x, y, z;
  2697.  
  2698.  
  2699.  
  2700. ypos (me)=ypos (#13)+8200;
  2701.  
  2702. xpos (me)=xpos (#13)-300;
  2703.  
  2704. zpos (me)=zpos (#13)-21057;
  2705.  
  2706. y=angle3d (#14, me, &x);
  2707.  
  2708. xrot (me)=x;
  2709.  
  2710. yrot (me)=y;
  2711.  
  2712.  
  2713. end
  2714. End_Chunk
  2715. Chunk: Dynamics
  2716.  MovType:     0x80000411
  2717.  Fuel:        0
  2718.  Climb:       0
  2719.  Gravity:     0
  2720.  Coupled:     0
  2721.  Drive:       0 0 0
  2722.  External:    0 0 0
  2723.  MaxForce:    0 0 0
  2724.  GroundFric:  0 0 0
  2725.  Restitution: 0 0 0
  2726.  Velocity:    0 0 0
  2727.  MaxVel:      0 0 0
  2728. End_Chunk
  2729. ;
  2730. ;-------Object   13-------------------------------------------------------
  2731. ; 
  2732. Chunk: Standard
  2733.  Name:     "autocam"
  2734.  Number:   13
  2735.  Size:     1000 1000 1000
  2736.  Position: 1959495 100000 2410705
  2737.  Type:     65535
  2738.  Layer:    0
  2739.  DFlags:   ME
  2740. End_Chunk
  2741. Chunk: Colours
  2742.  Number: 18
  2743.  0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C
  2744.  0x0C 0x0C
  2745. End_Chunk
  2746. Chunk: InitPos
  2747.  Position: 1959495 100000 2410705
  2748. End_Chunk
  2749. Chunk: SCL
  2750. long   x, y, z, min=2000;
  2751.  
  2752.  
  2753.  
  2754. y=ypos (#22)+2000-ypos (me);
  2755.  
  2756. x=xpos (#22)-xpos (me);
  2757.  
  2758. z=zpos (#22)-zpos (me);
  2759.  
  2760. if (abs (x)>min)
  2761.  
  2762.   xpos (me)+=x/20;
  2763.  
  2764. if (abs (z)>min)
  2765.  
  2766.   zpos (me)+=z/20;
  2767.  
  2768. if (abs (y)>min)
  2769.  
  2770.   ypos (me)+=y/20;
  2771.  
  2772.  
  2773. end
  2774. End_Chunk
  2775. Chunk: Dynamics
  2776.  MovType:     0x80000411
  2777.  Fuel:        0
  2778.  Climb:       0
  2779.  Gravity:     0
  2780.  Coupled:     0
  2781.  Drive:       0 0 0
  2782.  External:    0 0 0
  2783.  MaxForce:    0 0 0
  2784.  GroundFric:  0 0 0
  2785.  Restitution: 0 0 0
  2786.  Velocity:    0 0 0
  2787.  MaxVel:      0 0 0
  2788. End_Chunk
  2789. End_File